object MainForm: TMainForm Left = 232 Top = 115 Width = 518 Height = 419 Caption = 'TMultLang Bi Lingual Test Application' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] FormStyle = fsMDIForm Menu = MainMenu1 Position = poScreenCenter WindowMenu = Window1 OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 347 Width = 510 Height = 26 Align = alBottom BorderWidth = 1 TabOrder = 0 object StatusLine: TPanel Left = 2 Top = 2 Width = 445 Height = 22 Align = alClient Alignment = taLeftJustify BevelOuter = bvLowered BorderWidth = 1 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object Panel2: TPanel Left = 447 Top = 2 Width = 61 Height = 22 Align = alRight Alignment = taLeftJustify BevelOuter = bvLowered TabOrder = 1 end end object MultLang1: TMultLang Left = 68 Top = 20 Width = 145 Height = 22 AlignIcon = alLeft AlignText = alLeft IconMargin = 1 ItemHeight = 16 Items.Strings = ( 'English' 'Swedish') ShowIcons = False Text = 'English' ResizeIcon = False TextMargin = 5 AdoptOn = Language1 DefaultLanguage = 'English' LanguageFile = '%EXEPath%Mdiapp.lan' LanguagesData = {} end object MainMenu1: TMainMenu Left = 20 Top = 40 object File1: TMenuItem Caption = '&File' Hint = 'File related commands' ShortCut = 0 object FileExitItem: TMenuItem Caption = 'E&xit' Hint = 'Exit the application' ShortCut = 0 OnClick = FileExitItemClick end end object Features1: TMenuItem Caption = 'F&eatures' ShortCut = 0 object DateTimeCurrency1: TMenuItem Caption = 'Date / Time / Currency' ShortCut = 0 OnClick = DateTimeCurrency1Click end object Commondialogs1: TMenuItem Caption = 'Common dialogs' ShortCut = 0 OnClick = Commondialogs1Click end object Messagedialogs1: TMenuItem Caption = 'Message dialogs' ShortCut = 0 OnClick = Messagedialogs1Click end object CommonControls1: TMenuItem Caption = 'General Controls' ShortCut = 0 OnClick = CommonControls1Click end object Stringlists1: TMenuItem Caption = 'String lists' ShortCut = 0 OnClick = Stringlists1Click end object Icons1: TMenuItem Caption = 'Icons' ShortCut = 0 OnClick = Icons1Click end object ImportExport1: TMenuItem Caption = 'Import / Export' ShortCut = 0 OnClick = ImportExport1Click end object Objectresizing1: TMenuItem Caption = 'Object resizing' ShortCut = 0 OnClick = Objectresizing1Click end object Userdefinedstrings1: TMenuItem Caption = 'User defined strings' ShortCut = 0 OnClick = Userdefinedstrings1Click end object Adopton1: TMenuItem Caption = 'Adopt on other controls' ShortCut = 0 OnClick = Adopton1Click end object Speedinlargeprojects1: TMenuItem Caption = 'Language Editor' ShortCut = 0 OnClick = Speedinlargeprojects1Click end end object Language1: TMenuItem Caption = '&Language' ShortCut = 0 object TMenuItem Caption = 'Swedish' RadioItem = True ShortCut = 0 end object TMenuItem Caption = 'English' Checked = True RadioItem = True ShortCut = 0 end end object Window1: TMenuItem Caption = '&Window' Hint = 'Window related commands such as Tile and Cascade' ShortCut = 0 object WindowCascadeItem: TMenuItem Caption = '&Cascade' Hint = 'Arrange windows to overlap' ShortCut = 0 OnClick = WindowCascadeItemClick end object WindowTileItem: TMenuItem Caption = '&Tile' Hint = 'Arrange windows without overlap' ShortCut = 0 OnClick = WindowTileItemClick end object WindowArrangeItem: TMenuItem Caption = '&Arrange Icons' Hint = 'Arrange window icons at bottom of main window' ShortCut = 0 OnClick = WindowArrangeItemClick end object WindowMinimizeItem: TMenuItem Caption = '&Minimize All' Hint = 'Minimize all windows' ShortCut = 0 OnClick = WindowMinimizeItemClick end end object Help1: TMenuItem Caption = '&Register' Hint = 'Help topics' ShortCut = 0 object Order1: TMenuItem Caption = 'Order now' ShortCut = 0 OnClick = Order1Click end end end end